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<?xm! version="l . 0"?> 

<!DOCTYPE record SYSTEM "/XML/Meta/ tmeta . dtd"> 

<record name=" STUDENT- SUMMARY- IN FORMATION " archi t ecture="s390" align="l"> 
<field type-"pic" align="l" spec="999999" size-"6"> 

<name>ID-NUMBER</name> 

<association>ID-NUMBER</association> 
</field> 

<field type="pic" align-"!" spec="999999" size="6"> 
<name>PIN</name> 
<association>PIN</association> 



<name>NAME</name> 
<association>NAME</association> 
</field> 

<array size*="3"> 

<name>ADDRESS</name> 
<association>ADDRESS</association> 

<field type="pic" align-"!" spec="XXXXXXXXXXXXXXXXXXXXXXXXX" size= M 25"> 
<name>ADDRESS</name> 
<association>ADDRESS</association> 
</field> 
</array> 

<field type="pic" align="l" spec=" 999X999X9999" size="12"> 

<name>PHONE-NUMBER</name> 

<association>PHONE-NUMBER</association> 
</field> 

<field type="pic" align="l" spec=" 999X99X9999" size="ll"> 

<name>SOCIAL-SECURITY-NUMBER</name> 

<association>SOCIAL-SECURITY-NUMBER</association> 
</field> 

<field type="pic" align="l" spec="999" shift="-2" size="3"> 

<name>GRADE- POINT- AVERAGE</ name> 

<associ ation>GRADE-POINT-AVERAGE</associ at ion> 
</field> 
<struct> 

<name>BALANCES</ name> 

<association>BALANCES</association> 

<field type="packed" align="l" size="3"> 
<name>TUITION</name> 
<association>TUITION</association> 

</field> 

<field type="packed" align="l" size="3"> 

<name>HOUSING</name> . A 




<associ a tion>H0USING<7 association 
</field> 
</struct> 
</ record> 




package com. touchnet . beangen; 



import com. touchnet .base. * ; 
import java.io.*; 
import java.util.*; 

/** 

* This will provide the functionality that is common to all generated JavaBeans 

* map into legacy structures 
* 

* Creation date: (12/14/99 1:28:08 PM) 

* @author: Gary Murphy 
V 

public abstract class AbstractStructure 
implements Structurelnterf ace 

{ 

private String architecture; 
private StructTreeNode root = null; 

private BinaryRenderingEngine engine = new BinaryRenderingEngine () ; 
private j ava . lang . String metadataName ; 



* Create the base constructure for Java objects that wrapper legacy data 

* structures 



public AbstractStructure ( ) 
{ 

super ( ) ; 
} 

/** 

* Access the name of the architecture that the underlying binary data 

* represents 
*/ 

public String getArchitecture ( ) 
throws TException 
{ 

return architecture; 
} 



+ This will access an array within the structure. It will be returned as 

* an array of some concrete instance of this AbstractStructure. Even if 

* the array is of a single field, it will still be represented as a 

* structure that simply contains a single element. If the requested 

* element is not an array, this will throw an exception 
*/ 

public Structurelnterf ace [ 3 getArray (String name) 
throws TException 
{ 

AbstractStructureTreeNode node = getNode ( name ) ; 
if (node instanceof ArrayTreeNode ) 

{ 

ArrayTreeNode arrayNode - (ArrayTreeNode ) node ; 

return arrayNode . getArray ( ) ; 

} 

// If this isn't an array node, then we tried to access a non-array 
// as an array 

throw new TException ( "Attempt to access a non-array element as an array"); 

} 

/** 

* Access the binary rendering engine. 
* 

* Creation date: (1/3/00 1:11:03 PM) 

* ^return com. touchnet . base . BinaryRenderingEngine 



/** 



V 



*/ 

protected BinaryRenderingEngine getEngine() 
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if (null =- engine) 

engine - new BinaryRenderingEngine () ; 
return engine; 



* Access the named field within the component 
*/ 

public String get Field ( String name) 
throws TException 
{ 

AbstractStructureTreeNode node <= getNode ( name ) ; 
if (node instanceof FieldTreeNode ) 

{ 

FieldTreeNode fieldNode = ( FieldTreeNode ) node; 

return fieldNode .get Field I ) . toString ( ) ; 

} 

// It's not a field, so this is an exception 

throw new TException ( "Attempt to access a non-field element as a field"); 
) 

/** 

* Access the name of the metadata that describes this component 
* 

* Creation date: (2/29/00 11:24:58 AM) 

* ©return j ava . lang . String 
*/ 

public String getMetadataName ( ) 
i 

return metadataName; 
} 

/** 

* This will access the named node, starting at the root of the embedded tree 
+ 

* Creation date: (2/29/00 11:43:09 AM) 

* ©return com. touchnet . beangen . AbstractStructureTreeNode 

* ©param name j ava . lang. String 

* ©exception com. touchnet . base . TException The exception description. 
V 

protected AbstractStructureTreeNode getNode ( String name) 
throws TException 
t 

StringTokenizer tokenizer = new StringTokeni zer ( name, "/"); 
return getNode ( tokeni zer f getRoot ( ) ) ; 

} 

/** 

* This will access the named node, as a child of the current node. The name 

* is the next element in the tokenizei. If the name child doesn't exist, thi 

* will throw an exception 
* 

* Creation date: (2/29/00 11:43:09 AM) 

* ©return com. touchnet .beangen .AbstractStructureTreeNode 

* ©param name j ava . 1 ang . St ri nc 

* ©exception com. touchnet . base . TException The exception description. 
*/ 

protected AbstractStructureTreeNode 

getNode (StringTokenizer tokenizer, AbstractStructureTreeNode current) 
throws TException 

{ 

if ( ! tokenizer . hasMoreEl ements ( ) ) 

return current; // The current node is the requested node 

String child = tokenizer . nextToken () ; 

// Look for the name among the child node? 

int count ~ current . getChi ldCount () ; 
for (int i = 0; i < count; ++i ) 
i 

AbstractStructureTreeNode node = 

(AbstractStructureTreeNode)current .getChildAt (i ) ; 
if (node.getNamet ) .equals (child) ) 
return getNode (tokenizer , node); 

} 
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// The name didn't match any of the children 

throw new TException ( "The child of 1 "+current .getName ( ) 4 " 1 named '" + 

childV" does not exist"); 

} 

/*• 

* This will access the root node for the legacy data layout 

* Creation date: (1/3/00 12:56:48 PM) 

* (sreturn com. touchnet . beangen . StructTreeNode 
*/ 

protected StructTreeNode getRoot ( ) 
{ 

return root; 
} 

/** 

* This will read the binary contents of the input stream and 

* place it in the appropriate nodes of the tree 
*/ 

public void read ( InputStream stream) 
throws TException 
{ 

// Code not shown 
} 

/** 

* Access the name of the architecture that describes the underlying 

* binary data . 
*/ 

public void setArchitecture ( String name) 
throws TException 

{ 

architecture = name; 
return; 

} 

/** 

* Set the array for this level in the data structure 
*/ 

public void setArray ( String name, Structurelnterf ace [ ] child) 
throws TException 

{ 

AbstractStructureTreeNode node = getNode ( name ) ; 
if (node instanceof ArrayTreeNode) 
i 

ArrayTreeNode arrayNode = (ArrayTreeNode } node; 

arrayNode . setArray ( chi Id ) ; 

} 

// If this isn't an array node, then we tried to access a non-array 
// as an array 

throw new TExcept ion ( "Attempt to access a non-array element as an array"); 

} 

/** 

+ Update the named field with the value 
*/ 

public void setFi eld ( String name, String value) 
throws TException 

{ 

AbstractStructureTreeNode node = getNode (name ) ; 
if (node instanceof FieldTreeNode ) 
{ 

FieldTreeNode fieldNode = (FieldTreeNode)node; 
LegacyField field = fieldNode. getField( ) ; 
field. setValue (value) ; 
} 

// It's not a field, so this is an exception 
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throw new TException ( "Attempt to access a non-field element as a field"); 



} 

* Access the name of the metadata that describes this component 
* 

* Creation date: (2/29/00 11:24:58 AM) 

* feparam name j ava . lang . String 
*/ 

public void setMetadataName (String name) 

{ 

metadataName = name; 
return; 

} 

/** 

* This will access the root node for the legacy data layout 
* 

* Creation date: (1/3/00 12:56:48 PM) 

* @param rootNode com. touchnet . beangen . St ructTreeNode 



protected void setRoot ( StructTreeNode rootNode) 
{ 

root = rootNode; 

return; 

} 

/** 

* This will write the binary contents back to the 
*/ 

public void write (Output St ream stream) 
throws TException 
{ 

// Code not shown 
} 
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package com. touchnet .beangen. generated; 

import com. touchnet .beangen . * ; 
import com. touchnet . base . * ; 
/** 

* This was automatically generated 2/29/00 12:36:4"? PM 
V 

public class StudentSummarylnf ormation 
extends AbstractStructure 

{ 

/** 

* StudentSummarylnf ormation constructor comment. 
V 

public StudentSummarylnformation ( } { 
super ( ) ; 

} 

public String getAddress ( int index) 
throws TException 
{ 

Structurelnterface[ ] arrays getArray { "/ADDRESS" ) ; 

return array [index] . get Field ( "/ " ) ; 

} 

public String getGradePointAverage ( ) 
i : 3 throws TException 

,Vl i 

return get Field { "/GRADE -POINT -AVE RAGE" ) ; 

is 4 } 

jjf| public String getHousingU 

throws TException 
{ 

return get Fi eld { "/BALANCES /HOUSING" ) ; 
} 

public String getldNumber ( ) 
throws TException 
{ 

return get Field ( "/ID-NUMBER" ) ; 
} 

public String getName { ) 
throws TException 

{ 

return aet Fi eld { "/NAME" ) ; 

} 

public String getPhoneNumber ( ) 
throws TException 

{ 

return aet Fi eld ("/ PHONE-NUMBER" ) ; 

} 

public String getPIN() 
throws TException 
i 

return aet Fi eld ( "/PIN" } ; 
} 

public String getSocialSecuri tyNumber ( } 
throws TException 

{ 

return get Fi eld ( "/SOCIAL-SECURITY-NUMBER" ) ; 
i 

public String getTuition() 
throws TException 
{ 

return aet Fi eld ( "/BALANCES /TUITION" ) ; 
} 

public void setAddress ( int nth, String value) 
throws TException 
{ 

Structurelnterf ace( ) array = getArray ( "/ADDRESS" ) ; 
array [nth] .set Field ("/", value) ; 
} 

public void setGradePointAverage ( String value) 
throws TException 
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s e t Fi e 1 d ( "/ GRADE - POI NT -AVERAGE " , va 1 u e ) ; 

} 

public void setHousing ( String value) 
throws TException 

{ 

setFi eld { "/BALANCES/ HOUSING" , value ) ; 
} 

public void setldNumber ( String value) 
throws TException 
< 

setField( "/ID-NUMBER", value} ; 

} 

public void setName ( String value) 
throws TException 
{ 

setField("/NAME", value] ; 

} 

public void setPhoneNumber { String value) 
throws TException 
{ 

set Fi eld ( "/PHONE-NUMBER" , value ) ; 

} 

public void setPIN (String value) 
throws TException 
{ 

set Field ("/PIN", value ) ; 

} 

public void setSocialSecurityNumber ( String value) 
throws TException 

\ 

set Field ("/SOCIAL-SECURITY-NUMBER", value) ; 

} 

public void setTui tion ( St ring value) 
throws TException 

{ 

set Field ( "/BALANCES /TUITION " , value) ; 
} 
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/' Published APIs and data types »/ 

typedef long IxsHandle; 

IxsHandie lxsOpen(char *ic, char *host, 
unsigned short port); 
in: lxsClose ( lxsHandl e handle) ; 

i n* lxsKead ( lxsHandl e handle, char *name, void *cata, unsigned long length); 

in: lxsWri te ( lxsHandl e handle, char 'name, void *data, unsigned long length), 

in: IxsCommit ( lxsHandl e handle); 

in: IxsRol lback ( 1 xsHandl e handle); 

vcic IxsGetLastNamekead ( IxsHandle handle, char * name ) ; 
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package com. touchnet . uti 1 . base ; 



/ / * * * <^copyright>» + + 

//* 

//* Copyright (c) 200C 

//' TouchNet Information Systems, Inc. 

//■* All Rights Reserved 

in 

//* This program is an unpublished copyriaht work of TouchNet Information 

//* Systems, Inc. of Lenexa, Kf . The program, all information disclosed 

//* and the matter shown and cescribed hereon or herewith are confidential 

//* and proprietary to TouchNet Information Systems, Inc. 
//* 

//* 

//* Change Log: 

//* SLoc: El naryRenderingEngine . j ava i 
//* Revision 1.4 2000/07/19 10:36:3t gin. 
//* 

import com. touchnet . uti 1 .base .* ; 
import com. touchnet . uti 1 . * ; 
import j ava . math . Biglntegei ; 
/** 

* This is a utility object that will manage the bit/byte manipul ati or, 

* for a variety of data conversions. 
*/ 

public class BinaryRenderingEngi nt 

{ 

/** 

* Construct an object that will render byte arrays in a variety 

* of format? 

* / 

public EinaryRenderingEngine ( ; 

super ( ) ; 

} 

/»» 

* Access the value that is used when there is a rendering error 

* ^return byt* 
public byte getErrorByte ( ; 

return errorByte; 

/*' 

* Return a copy of one of these. 

* treturn COM. touchnet . xml host . Bi naryRenderingEnci nf 

public static EinaryRenderingEngine getlnstance ( ; 

if (instance «=*= null; 

instance - new BinaryRenderi ngEngine ( ) ; 
return instance; 

/** 

* This is called when there is a formatting exception such as c 

* string representation of a number that overflows the number of 

* bytes that number can handlt 

* (pparam data byte[] 

* feparam exception j ava . 1 ang . Number FormatExceptior. 
*/ 

public void handl eFormatExcept i on (byte [ 1 data, 111 eg a 1 Argument Except ion exception) 

// For now, we just set the bytes to some pre-defined value. We may want 
// to make this a JavaBean that fires an formatting exception event tc 
// the listeners. 
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byte err = getErrorByt e ( ; ; 

lor (int i = 0; i < data. length; 

data [ i ] = err; 
return; 



* This will parse the string into a lone 

* Creation date: p/12/00 11:23:5-7 AM! 

* ^return lone 

* fcparam number j ava . 1 ang . St ri nc 
*/ 

private long parseLong ( St ri no number; 

if (0 number . 1 ength () ; 
return C; 

// The Java parseLong ( ) is pretty stupic. It can't handle a leading 1 ■+ * , so 3 need 
// an explicit check lor that. 

if ('4' == number .charAt (0) : 

number = number . substri ng { 1 } ; 

return Long . parseLong ( number ) ; 

/** 

* kenaer a Java String from a series of bytes with 7-bit ASCII value? 

* ^return j ava . 1 ang . String 

* feparam datum byte(l 
*/ 

public String renderAsci i St ri ng t byt e [ ] datum; 

int size = datum. 1 ength ; 
char[] array = new char[size]; 
for (int i = 0; i < size; + + i ; 

array[i] = ( char ) render Pri ntabl eAscii (datum( i ], * '); 

return String . valueOf ( array ) ; 

/** 

* This will return a byte array containing "/-bit ASCII values generated 

* Irom the number passed 

+ f?return byte [ ] 

* (sparam value in; 

* fcparam size int 

* teparam pad char 
*/ 

public byte [ 1 r enderAsci i St r i ng ( i nt value, int size, char pad' 

bytei; buffei = new byte [size]; 
in: offset - 0; 

boolean neaative = false; 



if ((value < 0) && (pad ! =- ' ')) 

value = 0 - value; 

negative = true; 

buffer [of fset++] = (byte)'-'; 

J 

String string = Integer . toString (value ) ; 

int length = string . 1 ength () ; 

lor (; offset < size - length; ++offset) 

buf f er ( of f set ] = (byte)pac; // Pad on left if needed 

byte[] stringBytes = st ring .getBytes ( ) ; 
lor (int i = 0; offset < size; ++offset, ++i ; 
buf ler [of f set] = stringBytes [ i ] ; 
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* This will rencer the twc bytes in the array into a:. 

* integei and return the string renaerana of tha* 

* (?return i ava . 1 anc . St n nc 

* feparam raw bytei; 

public String r enaerBi gEndi an! 6Bi t ( byte [ j raw' 

short byteO < short ) raw [ 0] ; // Allow this to sign-extenc 
short byte! = ( short }( raw [ 1 ] & OxOOFF) ; 

short valu*- : 

(short ) ( (byteO « t . 
byttl 

) ; 

return String.val ueOf (value) ; 
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* This will render the string numeric into two byte.' 

* feparam j ava . 1 ang . St r i nc 

* fereturn raw byte[; 
*/ 

public byte[] r enderEi gEndianl 6Bi t ( Stri ng datum] 
i 

byte [] raw = new byte [2]; 

short value = 0; 

try 

i 

value = parseShort (datum) ; 

raw|0] = (byte) ( (value & OxOOOOFFOO) » b) ; 
raw[l] = (byte) ( value & OxOOOOOOFF] ; 

i 

catch (Number Format Except ion exception; 

hand! e F ormat Except i on ( raw, exception; ; 

\ 

return raw; 
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* This will take a series of bytes which are expected to b* 

* ASCI 1 characters representing numbers, For example: 

{ 1 - ' , • e ' , 1 9 • , • e • , • c * ;■ 



» would be -696C. It will return an int. 

* (-return int 

* fcparam raw byte[j 
V 

public int render! nteger FromAsci i Bytes (byte I ] raw; 

{ 

String number = renderAsciiZString (raw) . trim{ ) ; 

if {"".equals (number ) ) // All white space is considered a valid zero integei 
return 0; 

int value = 0; 
try 

{ 




catch (Number For mat Except ion exception; 

hand! eF crmatExcept i on ( raw, new Number Format Except i on ()) ; 
return -1; 

i 

return vaiue; 



* This will render bytes representing a packed decimal field intc 

* a string representation. This is a helper routine that work; 

* for both signed and unsigned packed value? 

* ^return java . 1 ang . Stri nc 

* feparam raw byte[j 

* feparam isSigned boolean 
*/ 

private String render Packed ( byte [ ] raw, boolean assigned, int offset) 
{ 

chai signCharacter - 1 // Assume no sign 

StringBuffer buffei = new StringBuf f er ( ) ; 

boolean minu; = false; 

// Take a peek at the offset compared tc the length of the raw data and see 
// where the decimal point goes . 

int append = 0; 

int insertAfter - -1; 

int digit* = (raw. length << 1 ) - 1; 

if (offset > 0) // Append only 
append = offset; 

el sf 

{ 

// We have a negative offset, the decimal will either be to the left oi 
// somewhere in the middle. 

insertAfter = digit? 4 offset; // Add because offset is negativ* 
if {insertAfter < 0) // The offset means only leading zerot . . . 

/ 

buf f er . append ('.'); 

for (int i = insertAfter; i < 0; ++i ) 
buf f er . append ( 1 0 1 ) ; 

} 

} // else 

in: rlndex = -1; // Index into the raw date 

int nibble = 0; 

boolean secondNibble = true; 

for (int i - 0; i < digits; 44i ; 
< 

if (secondNibble) // Bump input byte every other nibble 

++r2ndex; 
secondNibble - ! secondNibbl e ; 

// Wait for the interation in which we have to stuff the extra decimal 
// point . 

if (i == insertAfter) 

buffer . append ('.'); 
if (secondNibble) 

nibble raw(rlndex) & OxOOOOOOOF; 
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el st 

nibble = (raw|rlndex] » 4) & OxOOOOOOOF; 
switch (nibble ) 



case 


0 


buf f er 


append ( ' 0 ' ) 


break ; 


case 


1 


buf 1 er 


append t ' 1 ' ) 


break ; 


case 


2 


buf 1 er 


append t ' 2 ' ) 


break ; 


case 




buf f er 


append ( '3' ) 


break; 


case 


4 


buf f er 


append ( ' 4 ' ) 


break; 


case 


t. 


buf f er 


append ( ' h ' ) 


break; 


case 


6 


buf 1 er 


append ( ' 6 1 ) 


break ; 


case 


7 


buf f er 


append ( ' 7 ' ) 


break; 


case 


6 


buf f er 


append ( 1 6 ' ) 


break ; 


case 


c 


buffer 


append ( ' 9 ' ) 


break; 


del aul t : 







hand) e Forma t Except i on ( raw, 

new J 1 1 ecal Argument Except ion ( "Inval id value in data")), 
return "[data format error]"; 
} // switch 
} // foi 

// Now handle the last nibble which is the sian. 



nibble = raw[r3ndex] 
swi tch ( nibbl e ) 

{ 

case OxOA: 
case OxOC: 
case OxOE: 
case OxOF: 
break ; 



& OxOOOOOOOF; 
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case OxOD: 
case OxOE: 

minus = true; 

break ; 
default: 

i 

ha nd 1 e Format Except a on (raw, 

new 3 1 1 egal ArgumentExcept i on { "1 nval id value in data")); 
return "[data format error]"; 

} 



// Append any additional trailing zeros that are a result of the decimal shift 
// in the type descripto: 

for (int i ~ 0; i < append; -Mi J 
buf f er . append ( • 0 ■ ) ; 

String rendered - buf f er . toSt ri ng ( ) ; 
if (isSigned && minus; 

rendered =■'-» + rendered; 
return rendered; 



* This is a helper method that will renaer F3C templates that have been pre-cet ermi nec 

* to be numeric. It will handle both EBCDIC or ASCII input numeric! . 

* ^return byte [ 1 . 

* feparam raw j ava . 1 ang . Stn nc 

* feparam template byte [5 

* fcparam offset int 

* feparam isAscii boolean 
*/ 

private byte[] renderPacked ( String raw, int size, int offset, boolean isSicnec; 

i 

byte[; buffer = new byte [size]; 

int shift = 0; // This is the decimal place shift that we find in the 

// data. It is used to reconcile the offset parn. 
boolean decimal = false; // ... until we hit a decimal point, then it is true 



boolear. minuf = false; 

byte[] userdata = raw . getByt es ( ) ; 
byte 1 1 numeric ~ new byte | usercat e . ) ength ] ; // Just the numeric part of the datV 
im numSize = 0; // Count of just the numerics in the user datt 



fortint i = 0; i < userdata . 1 ength; +4i ; 

i 

switch (userdata [ i ] ; 



case 


(byte) '0' 


case 


(byte) ' 1 ' 


case 


(byte) »2* 


case 


(byte) »3 • 


case 


(byte) ' 4 1 


case 


(byte) •£ • 


case 


(byte) '6' 


case 


(byte) *7 * 


case 


(byte) '8' 


case 


(byte ) * 9 ' 



numeri c [ numSi ze+4 ] c ( userdata [ i ]) ; 
if (decimal) ++shift; 
break ; 
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// 

H 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
/ / 
// 
// 
// 
// 
// 
/ / 
// 



case (byte ) 1 - 1 : 

minus ~ true; 

break; 
case (byte) '+ ' : 

break; 
case (byte) 1 . ' : 

decimal = true; 

break; 
} // switch 
} // fox 

Now we have the digits separated from the sign and decimal point. Now 
we have to normalize the decimal offset and the digit count with tht 
template. What makes this additionally complex is the observation thai 
there can be truncation on either side of the user data if the shift 
overflows the template. Consider the following examples: 

Assume : 



template = 


9999S with shift -2 


(via PIC 999V99; 


Userdata 


Answe 






1230 


23000 


{truncation 


on left) 


12:- 


12300 






12.3 


0123C 






1.2:- 


00123 






.123 


00012 


( truncation 


on right) 



At this point in the code, we have the user data filtered out 
into a the string ,, 123". We need to align the decimal point 
logically based on the shifts in the template minus the logical 
shifts from the explicit decimal point in the date. 



jm inaex = 
i nt [ 1 val ue = 
for lint i = 0; 



numSize - ((size << 1) 

new int [ 2 ] ; 

i < size-1; -Mi) 



1 ) - offset 



shift; 



for (int j = 0; j < 2; + + j ) 

{ 

if (index < 0) 

value[j] = 0; 

el se 

if (index < numSize) 

value [j] = numeric [ index] & OxOOOOOOOF; 

else 

value [ j ] = 0; 
++index; 



Fig. 13F 





buf f er[i] 



(byte) ( (value [ 0] << 4) I valued) J; 




// Do the last byte as a special case since at contains the sign nibblt 

tor tint i = 0; j < 2; + 

i 

if (index < 01 

valuelj] = 0; 

else 

if (index < numSize) 

valuelj] = numeric (index] & OxOOOOOOOF; 

el sf 

value[j] = 0; 
+ + i nd ex ; 



int sign «= OxOC; // Plur 
if (isSigned && minus) 
sign = OxOD; 

buf fer(size-l] = (byte ) ( { val ue [ 0] << A) I sign); 
return buffer; 

} 




